home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / GUI / Reverse Finder Window Order < prev   
Encoding:
Text File  |  1999-03-04  |  461 b   |  15 lines  |  [TEXT/ToyS]
  1. on run
  2.     tell application "Finder"
  3.         set woze to the open windows
  4.         set pops to the name of every window whose popup is true
  5.         activate
  6.     end tell
  7.     
  8.     repeat with w in woze
  9.         if (not (the same data is in w as in "Desktop")) then -- Don't mess with the Desktop…
  10.             if the number of items in (collect items of pops that match w) is 0 then -- And not a pop-up
  11.                 tell application "Finder" to reposition window w with activation
  12.             end if
  13.         end if
  14.     end repeat
  15. end run